(Fx_create_frame): Apply 2006-06-24 change for xfns.c.

diff --git a/src/macfns.c b/src/macfns.c
index 104dcb0896b8825bd6725b83b1ec938ae2582504..494d6ec1da377999f2fb828b81332919d9a985dc 100644 (file)
--- a/src/macfns.c
+++ b/src/macfns.c
@@ -2646,8 +2646,7 @@ This function is an internal primitive--use `make-frame' instead.  */)
       error ("Cannot find any usable font");
     UNBLOCK_INPUT;
 
-    x_default_parameter (f, parms, Qfont, font,
-                        "font", "Font", RES_TYPE_STRING);
+    x_set_frame_parameters (f, Fcons (Fcons (Qfont, font), Qnil));
   }
 
   x_default_parameter (f, parms, Qborder_width, make_number (0),